home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 January / january_2001.iso / intercd / root / ^4Developers / VB / visbasdb / VBDB / VBDB Code / VB5 Code / Class 3 / Example3-1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-08-28  |  3.3 KB  |  110 lines
  1. VERSION 5.00
  2. Begin VB.Form frmTitles 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Titles Database"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   5400
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   5400
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.Data datTitles 
  16.       Caption         =   "Titles"
  17.       Connect         =   "Access"
  18.       DatabaseName    =   "c:\VBDB\Working\Biblio.mdb"
  19.       DefaultCursorType=   0  'DefaultCursor
  20.       DefaultType     =   2  'UseODBC
  21.       Exclusive       =   0   'False
  22.       Height          =   300
  23.       Left            =   1200
  24.       Options         =   0
  25.       ReadOnly        =   -1  'True
  26.       RecordsetType   =   1  'Dynaset
  27.       RecordSource    =   "Titles"
  28.       Top             =   2640
  29.       Width           =   3060
  30.    End
  31.    Begin VB.TextBox txtPubID 
  32.       DataField       =   "PubID"
  33.       DataSource      =   "datTitles"
  34.       Height          =   495
  35.       Left            =   1440
  36.       Locked          =   -1  'True
  37.       TabIndex        =   5
  38.       Top             =   1920
  39.       Width           =   3615
  40.    End
  41.    Begin VB.TextBox txtISBN 
  42.       DataField       =   "ISBN"
  43.       DataSource      =   "datTitles"
  44.       Height          =   495
  45.       Left            =   1440
  46.       Locked          =   -1  'True
  47.       TabIndex        =   4
  48.       Top             =   1320
  49.       Width           =   3615
  50.    End
  51.    Begin VB.TextBox txtYearPublished 
  52.       DataField       =   "Year Published"
  53.       DataSource      =   "datTitles"
  54.       Height          =   495
  55.       Left            =   1440
  56.       Locked          =   -1  'True
  57.       TabIndex        =   3
  58.       Top             =   720
  59.       Width           =   3615
  60.    End
  61.    Begin VB.TextBox txtTitle 
  62.       DataField       =   "Title"
  63.       DataSource      =   "datTitles"
  64.       Height          =   495
  65.       Left            =   1440
  66.       Locked          =   -1  'True
  67.       TabIndex        =   1
  68.       Top             =   120
  69.       Width           =   3615
  70.    End
  71.    Begin VB.Label Label4 
  72.       Caption         =   "Publisher ID"
  73.       Height          =   495
  74.       Left            =   120
  75.       TabIndex        =   7
  76.       Top             =   2040
  77.       Width           =   1215
  78.    End
  79.    Begin VB.Label Label3 
  80.       Caption         =   "ISBN"
  81.       DataField       =   "IS"
  82.       Height          =   495
  83.       Left            =   120
  84.       TabIndex        =   6
  85.       Top             =   1440
  86.       Width           =   1215
  87.    End
  88.    Begin VB.Label Label2 
  89.       Caption         =   "Year Published"
  90.       Height          =   495
  91.       Left            =   120
  92.       TabIndex        =   2
  93.       Top             =   840
  94.       Width           =   1215
  95.    End
  96.    Begin VB.Label Label1 
  97.       Caption         =   "Title"
  98.       Height          =   495
  99.       Left            =   120
  100.       TabIndex        =   0
  101.       Top             =   240
  102.       Width           =   1215
  103.    End
  104. Attribute VB_Name = "frmTitles"
  105. Attribute VB_GlobalNameSpace = False
  106. Attribute VB_Creatable = False
  107. Attribute VB_PredeclaredId = True
  108. Attribute VB_Exposed = False
  109. Option Explicit
  110.